home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / edsb121b.zip / EDSFILE.005 (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-01  |  5KB  |  242 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Date     TDATE001(5)
  23.     Integer  INTEGER001
  24.     Integer  INTEGER002
  25.     String   TSTRING001(5)
  26.     String   STRING002
  27.     Time     TTIME001(5)
  28.  
  29. ;------------------------------------------------------------------------------
  30.  
  31.     Gosub LABEL001
  32.     Goto LABEL004
  33.     :LABEL001
  34.     PrintLn 
  35.     PrintLn "@X0ALoading stats file..."
  36.     If (Exist(PPEPath() + "EDSSTATS.DAT")) Then
  37.         BOOLEAN001 = 1
  38.         FOpen 1, PPEPath() + "EDSSTATS.DAT", 2, 2
  39.         If (Ferr(1)) Then
  40.             BOOLEAN001 = 1
  41.         Else
  42.             BOOLEAN001 = 0
  43.         Endif
  44.         If (BOOLEAN001) Then
  45.             PrintLn 
  46.             PrintLn "@X0CSorry, the @X0FEDSSTATS.DAT @X0Cfile is currently inaccessible..."
  47.             FClose 1
  48.             Return
  49.         Endif
  50.     Else
  51.         BOOLEAN001 = 1
  52.         FCreate 1, PPEPath() + "EDSSTATS.DAT", 2, 2
  53.         If (Ferr(1)) Then
  54.             BOOLEAN001 = 1
  55.         Else
  56.             BOOLEAN001 = 0
  57.         Endif
  58.         If (BOOLEAN001) Then
  59.             PrintLn 
  60.             PrintLn "@X0CSorry, the @X0FEDSSTATS.DAT @X0Cfile is currently inaccessible..."
  61.             FClose 1
  62.             Return
  63.         Endif
  64.         FSeek 1, 0, 0
  65.         FWrite 1, " EDSBack v1.21 Statistical Control File   " + Chr(13) + Chr(10) + Chr(32) + Chr(26) + Chr(0), 47
  66.         FWrite 1, 0, 4
  67.         FWrite 1, 0, 4
  68.         FWrite 1, 0, 4
  69.         FWrite 1, "N/A", 25
  70.         FWrite 1, 0, 2
  71.         FWrite 1, 0, 4
  72.         FWrite 1, "N/A", 25
  73.         FWrite 1, 0, 2
  74.         FWrite 1, 0, 4
  75.         FWrite 1, "N/A", 25
  76.         FWrite 1, 0, 2
  77.         FWrite 1, 0, 4
  78.         FWrite 1, "N/A", 25
  79.         FWrite 1, 0, 2
  80.         FWrite 1, 0, 4
  81.         FWrite 1, "N/A", 25
  82.         FWrite 1, 0, 2
  83.         FWrite 1, 0, 4
  84.         FWrite 1, "N/A", 25
  85.         FWrite 1, 0, 2
  86.         FWrite 1, 0, 4
  87.         FWrite 1, Space(20), 20
  88.     Endif
  89.     BOOLEAN002 = 0
  90.     BOOLEAN003 = 1
  91.     :LABEL002
  92.     If (BOOLEAN002) Goto LABEL003
  93.     If (BOOLEAN003) Then
  94.         FSeek 1, 47, 0
  95.         FRead 1, INTEGER001, 4
  96.         FSeek 1, 8, 1
  97.         For INTEGER002 = 0 To 5
  98.             FRead 1, TSTRING001(INTEGER002), 25
  99.             FRead 1, TDATE001(INTEGER002), 2
  100.             FRead 1, TTIME001(INTEGER002), 4
  101.             If (Trim(TSTRING001(INTEGER002), " ") == "") TSTRING001(INTEGER002) = "N/A"
  102.         Next
  103.         BOOLEAN003 = 0
  104.     Endif
  105.     PrintLn 
  106.     PrintLn "             @X0AEDSBack v1.21b Statistical Process Control File"
  107.     PrintLn 
  108.     PrintLn "    @X0F(@X09T@X0F)@X0Aotal # Callbacks : @X09" + String(INTEGER001)
  109.     PrintLn 
  110.     PrintLn "                            @X0BLast 6 Callbacks"
  111.     Print "    @X0F(@X091@X0F) @X0AName : @X0E " + Left(TSTRING001(0) + Space(28), 28) + "  @X0ADate : @X0E" + String(TDATE001(0))
  112.     PrintLn "  @X0ATime : @X0E" + String(TTIME001(0))
  113.     Print "    @X0F(@X092@X0F) @X0AName : @X0E " + Left(TSTRING001(1) + Space(28), 28) + "  @X0ADate : @X0E" + String(TDATE001(1))
  114.     PrintLn "  @X0ATime : @X0E" + String(TTIME001(1))
  115.     Print "    @X0F(@X093@X0F) @X0AName : @X0E " + Left(TSTRING001(2) + Space(28), 28) + "  @X0ADate : @X0E" + String(TDATE001(2))
  116.     PrintLn "  @X0ATime : @X0E" + String(TTIME001(2))
  117.     Print "    @X0F(@X094@X0F) @X0AName : @X0E " + Left(TSTRING001(3) + Space(28), 28) + "  @X0ADate : @X0E" + String(TDATE001(3))
  118.     PrintLn "  @X0ATime : @X0E" + String(TTIME001(3))
  119.     Print "    @X0F(@X095@X0F) @X0AName : @X0E " + Left(TSTRING001(4) + Space(28), 28) + "  @X0ADate : @X0E" + String(TDATE001(4))
  120.     PrintLn "  @X0ATime : @X0E" + String(TTIME001(4))
  121.     Print "    @X0F(@X096@X0F) @X0AName : @X0E " + Left(TSTRING001(5) + Space(28), 28) + "  @X0ADate : @X0E" + String(TDATE001(5))
  122.     PrintLn "  @X0ATime : @X0E" + String(TTIME001(5))
  123.     PrintLn 
  124.     PrintLn "         @X0F(@X0CR@X0F)@X0Beset stats      @X0F(@X0CQ@X0F)@X0Buit"
  125.     PrintLn 
  126.     STRING002 = ""
  127.     InputStr "Enter command", STRING002, 10, 1, "RrQqTt123456", 2 + 4
  128.     Newline
  129.     STRING002 = Upper(STRING002)
  130.     If (STRING002 == "T") Then
  131.         InputInt "# of callbacks", INTEGER001, 15
  132.         FSeek 1, 47, 0
  133.         FWrite 1, INTEGER001, 4
  134.         BOOLEAN003 = 1
  135.         BOOLEAN002 = 0
  136.     ElseIf ((((STRING002 == "1") || (STRING002 == "2")) || ((STRING002 == "3") || (STRING002 == "4"))) || ((STRING002 == "5") || (STRING002 == "6"))) Then
  137.         InputStr "New name", TSTRING001(S2I(STRING002, 10) - 1), 15, 25, Mask_Ascii(), 2 + 4
  138.         TSTRING001(S2I(STRING002, 10) - 1) = Upper(TSTRING001(S2I(STRING002, 10) - 1))
  139.         Newline
  140.         InputDate "New date", TDATE001(S2I(STRING002, 10) - 1), 14
  141.         Newline
  142.         InputTime "New time", TTIME001(S2I(STRING002, 10) - 1), 14
  143.         FSeek 1, 47 + S2I(STRING002, 10) * 31 - 31 + 12, 0
  144.         FWrite 1, TSTRING001(S2I(STRING002, 10) - 1), 25
  145.         FWrite 1, TDATE001(S2I(STRING002, 10) - 1), 2
  146.         FWrite 1, TTIME001(S2I(STRING002, 10) - 1), 4
  147.         BOOLEAN003 = 1
  148.         BOOLEAN002 = 0
  149.     Else
  150.         Select Case (STRING002)
  151.             Case "R"
  152.                 PrintLn "@X0AResetting statistics..."
  153.                 FSeek 1, 47, 0
  154.                 FWrite 1, 0, 4
  155.                 FSeek 1, 8, 1
  156.                 For INTEGER002 = 0 To 5
  157.                     FWrite 1, "N/A", 25
  158.                     FWrite 1, 0, 2
  159.                     FWrite 1, 0, 4
  160.                 Next
  161.                 BOOLEAN003 = 1
  162.                 BOOLEAN002 = 0
  163.             Case "Q"
  164.                 BOOLEAN003 = 0
  165.                 BOOLEAN002 = 1
  166.             Endif
  167.     End Select
  168.     Goto LABEL002
  169.     :LABEL003
  170.     FClose 1
  171.     Return
  172.     :LABEL004
  173.     End
  174.  
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Usage report (before postprocessing)
  178. ;
  179. ; ■ Statements used :
  180. ;
  181. ;    1       End
  182. ;    23      Goto 
  183. ;    25      Let 
  184. ;    6       Print 
  185. ;    22      PrintLn 
  186. ;    14      If 
  187. ;    1       FCreate 
  188. ;    1       FOpen 
  189. ;    3       FClose 
  190. ;    2       InputStr 
  191. ;    1       InputInt 
  192. ;    1       InputDate 
  193. ;    1       InputTime 
  194. ;    1       Gosub 
  195. ;    3       Return
  196. ;    3       Newline
  197. ;    7       FSeek 
  198. ;    4       FRead 
  199. ;    31      FWrite 
  200. ;
  201. ;
  202. ; ■ Functions used :
  203. ;
  204. ;    1       *
  205. ;    45      +
  206. ;    9       -
  207. ;    10      ==
  208. ;    2       <
  209. ;    2       <=
  210. ;    4       >=
  211. ;    13      !
  212. ;    4       &&
  213. ;    7       ||
  214. ;    2       Upper()
  215. ;    6       Left()
  216. ;    7       Space()
  217. ;    2       Ferr()
  218. ;    5       Chr()
  219. ;    1       Trim()
  220. ;    13      String()
  221. ;    1       Mask_Ascii()
  222. ;    3       PPEPath()
  223. ;    1       Exist()
  224. ;    9       S2I()
  225. ;
  226. ;------------------------------------------------------------------------------
  227. ;
  228. ; Analysis flags : No flag
  229. ;
  230. ;------------------------------------------------------------------------------
  231. ;
  232. ; Postprocessing report
  233. ;
  234. ;    2       For/Next
  235. ;    0       While/EndWhile
  236. ;    8       If/Then or If/Then/Else
  237. ;    1       Select Case
  238. ;
  239. ;------------------------------------------------------------------------------
  240. ;                 AEGiS Corp - Break the routines, code against the machines!
  241. ;------------------------------------------------------------------------------
  242.